home *** CD-ROM | disk | FTP | other *** search
- object frmHeaders: TfrmHeaders
- Left = 176
- Top = 44
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Header characteristics'
- ClientHeight = 429
- ClientWidth = 530
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- HelpFile = 'spambuster.hlp'
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 16
- object EsLabel1: TEsLabel
- Left = 8
- Top = 3
- Width = 449
- Height = 35
- Appearance = apCustom
- Caption = 'The E-mail header characteristics'
- ColorScheme = csCustom
- CustomSettings.ShadowColor = clOlive
- CustomSettings.ShadowDepth = 4
- CustomSettings.ShadowStyle = ssExtrude
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label1: TLabel
- Left = 13
- Top = 40
- Width = 508
- Height = 33
- AutoSize = False
- Caption =
- 'If text in the e-mail header line follows any of these patterns ' +
- 'it will be marked for deletion since it looks like a potential s' +
- 'pam.'
- WordWrap = True
- end
- object Bevel2: TBevel
- Left = 14
- Top = 81
- Width = 507
- Height = 264
- end
- object lblMailbox: TLabel
- Left = 176
- Top = 184
- Width = 73
- Height = 16
- Caption = 'For Mailbox:'
- Visible = False
- end
- object lblCountry: TLabel
- Left = 161
- Top = 284
- Width = 3
- Height = 16
- end
- object cbCase: TCheckBox
- Left = 160
- Top = 314
- Width = 241
- Height = 17
- HelpContext = 2002
- Caption = '&Check if case matters (upper/lower)'
- TabOrder = 8
- end
- object btOK: TButton
- Left = 355
- Top = 390
- Width = 76
- Height = 28
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 9
- OnClick = btOKClick
- end
- object btCancel: TButton
- Left = 443
- Top = 390
- Width = 76
- Height = 28
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 10
- end
- object Panel1: TPanel
- Left = 14
- Top = 350
- Width = 297
- Height = 73
- TabOrder = 11
- object Image1: TImage
- Left = 144
- Top = 14
- Width = 17
- Height = 25
- Picture.Data = {<image000.bmp>}
- end
- object Image2: TImage
- Left = 143
- Top = 43
- Width = 17
- Height = 25
- Picture.Data = {<image001.bmp>}
- end
- object Label6: TLabel
- Left = 19
- Top = 27
- Width = 105
- Height = 39
- AutoSize = False
- Caption = 'Note: Only messages with a check mark will be deleted.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label2: TLabel
- Left = 8
- Top = 6
- Width = 121
- Height = 16
- Caption = 'Mark message with :'
- end
- object rbCheck: TRadioButton
- Left = 160
- Top = 15
- Width = 100
- Height = 17
- HelpContext = 2003
- Caption = 'check &mark'
- TabOrder = 0
- end
- object rbQuestion: TRadioButton
- Left = 160
- Top = 45
- Width = 121
- Height = 17
- HelpContext = 2003
- Caption = '&question mark'
- TabOrder = 1
- end
- end
- object cbWhat: TComboBox
- Left = 160
- Top = 224
- Width = 193
- Height = 24
- HelpContext = 3005
- Style = csDropDownList
- ItemHeight = 16
- Items.Strings = (
- 'Contains'
- 'Contains (whole word)'
- 'Equals (exact match)'
- 'Starts with'
- 'Ends with')
- TabOrder = 6
- end
- object cbHeader: TComboBox
- Left = 160
- Top = 254
- Width = 353
- Height = 24
- HelpContext = 3006
- ItemHeight = 16
- Items.Strings = (
- 'X-1'
- 'X-Advertisement'
- 'X-Authentication-Warning'
- 'X-BulkEmail'
- 'X-Distribution: Bulk'
- 'X-Distribution: Mass'
- 'X-Distribution: Moderate'
- 'X-Mailer: Emailer Platinum'
- 'X-Mailer: Extractor'
- 'X-Mailer: eMarksman'
- 'X-Mailer: Floodgate'
- 'X-Mailer: Group Mail'
- 'X-Mailer: Millennium Mailer'
- 'X-Removal'
- 'X-Sender: News Breaker')
- TabOrder = 7
- Text = 'cbHeader'
- end
- object rbHeader: TRadioButton
- Left = 24
- Top = 227
- Width = 129
- Height = 17
- HelpContext = 3004
- Caption = 'Message Header'
- Checked = True
- TabOrder = 5
- TabStop = True
- OnClick = rbReplyTomatchClick
- end
- object rbReplyTomatch: TRadioButton
- Left = 24
- Top = 92
- Width = 417
- Height = 17
- HelpContext = 3001
- Caption = 'The Sender address does not match the '#39'Reply-to'#39' address'
- TabOrder = 0
- OnClick = rbReplyTomatchClick
- end
- object rbTo: TRadioButton
- Left = 24
- Top = 152
- Width = 225
- Height = 17
- HelpContext = 3002
- Caption = 'The '#39'To'#39' address does not contain:'
- TabOrder = 2
- OnClick = rbReplyTomatchClick
- end
- object edTo: TEdit
- Left = 256
- Top = 149
- Width = 257
- Height = 24
- HelpContext = 3002
- TabOrder = 3
- Visible = False
- end
- object rbFromEqualsTo: TRadioButton
- Left = 24
- Top = 122
- Width = 417
- Height = 17
- HelpContext = 3007
- Caption = 'The Sender address equals the '#39'To'#39' address field'
- TabOrder = 1
- OnClick = rbReplyTomatchClick
- end
- object cbMailBox: TComboBox
- Left = 256
- Top = 180
- Width = 257
- Height = 24
- Style = csDropDownList
- ItemHeight = 16
- TabOrder = 4
- Visible = False
- end
- object btCountry: TButton
- Left = 356
- Top = 356
- Width = 163
- Height = 28
- Caption = 'Block out a country'
- TabOrder = 12
- OnClick = btCountryClick
- end
- end
-